home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IO Examples / Scrabble / graphics.dcl < prev    next >
Encoding:
Modula Definition  |  1997-05-14  |  1.2 KB  |  37 lines  |  [TEXT/3PRM]
  1. definition module graphics
  2.  
  3. import    deltaEventIO, deltaFont, deltaPicture
  4. import    board
  5.  
  6. ::    Size            :==    (!Int,!Int)
  7.  
  8. displaywidth        :==    250
  9. displayheight        :==    130
  10. boardwidth            :==    391
  11. boardheight            :==    391
  12. squarewidth            ::    Int
  13. squareheight        ::    Int
  14.  
  15. instance    toString ControlState
  16. toStringCS    :: String -> ControlState
  17.  
  18. abs2rel                :: !(!Int,!Int) -> (!Int,!Int)
  19.  
  20. boardlook            :: !Board !Size !SelectState ControlState            -> [DrawFunction]
  21. redrawboard            :: !Board                            !(IOState t)    -> IOState t
  22. drawfocus            :: !Bool !ControlState                                -> [DrawFunction]
  23.  
  24. letterboxlook        :: ![Char] SelectState ControlState                    -> [DrawFunction]
  25. drawletterbox        :: ![Char]                            !(IOState t)    -> IOState t
  26.  
  27. drawplayer1letters    :: ![Char]                            !(IOState t)    -> IOState t
  28. drawplayer2letters    :: ![Char]                            !(IOState t)    -> IOState t
  29. playerletterslook    :: !Size SelectState !ControlState                    -> [DrawFunction]
  30.  
  31. drawplayer1score    :: !Int                                !(IOState t)    -> IOState t
  32. drawplayer2score    :: !Int                                !(IOState t)    -> IOState t
  33.  
  34. drawcommunication    :: ![String]                        !(IOState t)    -> IOState t
  35. displaylook            :: !Size SelectState !ControlState                    -> [DrawFunction]
  36. drawprogress        :: !Player !Progress !Placing        !(IOState t)    -> IOState t
  37.